home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / gg / ncurses-5.3.lha / ncurses-5.3 / form / fld_type.c < prev    next >
C/C++ Source or Header  |  2002-10-24  |  4KB  |  96 lines
  1. /****************************************************************************
  2.  * Copyright (c) 1998,2000 Free Software Foundation, Inc.                   *
  3.  *                                                                          *
  4.  * Permission is hereby granted, free of charge, to any person obtaining a  *
  5.  * copy of this software and associated documentation files (the            *
  6.  * "Software"), to deal in the Software without restriction, including      *
  7.  * without limitation the rights to use, copy, modify, merge, publish,      *
  8.  * distribute, distribute with modifications, sublicense, and/or sell       *
  9.  * copies of the Software, and to permit persons to whom the Software is    *
  10.  * furnished to do so, subject to the following conditions:                 *
  11.  *                                                                          *
  12.  * The above copyright notice and this permission notice shall be included  *
  13.  * in all copies or substantial portions of the Software.                   *
  14.  *                                                                          *
  15.  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
  16.  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
  17.  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
  18.  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
  19.  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
  20.  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
  21.  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
  22.  *                                                                          *
  23.  * Except as contained in this notice, the name(s) of the above copyright   *
  24.  * holders shall not be used in advertising or otherwise to promote the     *
  25.  * sale, use or other dealings in this Software without prior written       *
  26.  * authorization.                                                           *
  27.  ****************************************************************************/
  28.  
  29. /****************************************************************************
  30.  *   Author:  Juergen Pfeifer, 1995,1997                                    *
  31.  *   Contact: http://www.familiepfeifer.de/Contact.aspx?Lang=en             *
  32.  ****************************************************************************/
  33.  
  34. #include "form.priv.h"
  35.  
  36. MODULE_ID("$Id: fld_type.c,v 1.11 2002/07/06 15:33:27 juergen Exp $")
  37.  
  38. /*---------------------------------------------------------------------------
  39. |   Facility      :  libnform  
  40. |   Function      :  int set_field_type(FIELD *field, FIELDTYPE *type,...)
  41. |   
  42. |   Description   :  Associate the specified fieldtype with the field.
  43. |                    Certain field types take additional arguments. Look
  44. |                    at the spec of the field types !
  45. |
  46. |   Return Values :  E_OK           - success
  47. |                    E_SYSTEM_ERROR - system error
  48. +--------------------------------------------------------------------------*/
  49. NCURSES_EXPORT(int)
  50. set_field_type (FIELD *field,FIELDTYPE *type, ...)
  51. {
  52.   va_list ap;
  53.   int res = E_SYSTEM_ERROR;
  54.   int err = 0;
  55.  
  56.   va_start(ap,type);
  57.  
  58.   Normalize_Field(field);
  59.   _nc_Free_Type(field);
  60.  
  61.   field->type = type;
  62.   field->arg  = (void *)_nc_Make_Argument(field->type,&ap,&err);
  63.  
  64.   if (err)
  65.     {
  66.       _nc_Free_Argument(field->type,(TypeArgument *)(field->arg));
  67.       field->type = (FIELDTYPE *)0;
  68.       field->arg  = (void *)0;
  69.     }
  70.   else
  71.     {
  72.       res = E_OK;
  73.       if (field->type) 
  74.     field->type->ref++;
  75.     }
  76.  
  77.   va_end(ap);
  78.   RETURN(res);
  79. }
  80.  
  81. /*---------------------------------------------------------------------------
  82. |   Facility      :  libnform  
  83. |   Function      :  FIELDTYPE *field_type(const FIELD *field)
  84. |   
  85. |   Description   :  Retrieve the associated fieldtype for this field.
  86. |
  87. |   Return Values :  Pointer to fieldtype of NULL if none is defined.
  88. +--------------------------------------------------------------------------*/
  89. NCURSES_EXPORT(FIELDTYPE *)
  90. field_type (const FIELD * field)
  91. {
  92.   return Normalize_Field(field)->type;
  93. }
  94.  
  95. /* fld_type.c ends here */
  96.